home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / adaptor.zip / ADAPT.ZIP / adaptor / examples / dalib / hostnode / test1.f < prev    next >
Encoding:
Text File  |  1993-03-23  |  287 b   |  18 lines
  1.       program test1
  2.  
  3.       real a(15), ha(15)
  4. cmf$  layout ha(:host)
  5.  
  6.       ha = 4.0
  7. c     move ha to nodes
  8.       a = ha
  9.       a = a + 1.0
  10. c     move from nodes to host
  11.       ha = a
  12. c
  13. c     print results
  14.       print '(5f10.5)', ha
  15. c 
  16.       print * , 'results should all be 5 '
  17.       end
  18.